5 PRINT"[147]" 15 POKE52,48:POKE56,48:CLR:K=12288:PC=56334:CP=53272 16 POKEPC,PEEK(PC)AND254:POKE1,PEEK(1)AND251 20 FORJ=0TO512:POKEK+J,PEEK(53248+J):NEXTJ 25 FORI=216TO255:READA%:POKEK+I,A%:NEXTI:FORI=280TO327:READB%:POKEK+I,B%:NEXTI 26 POKE1,PEEK(1)OR4:POKEPC,PEEK(PC)OR1 30 PRINT"[147]":POKECP,21:BC=53280:BK=53281:POKEBC,5:POKEBK,1 35 PRINT"[144]SKI PHYSICS" 50 V=54272:FORL=VTOV+24:POKEL,0:NEXT 52 POKEV+5,88:POKEV+4,33:POKEV+24,143:POKEV+6,195 55 READLF,HF,DR:IFLF=-1THEN65 60 POKEV,LF:POKEV+1,HF:FORT=1TODR:NEXTT:GOTO55 65 POKEV,0:POKEV+1,0:POKEV+24,0:D=1 75 PRINTSPC(131)"[144]PRESS THE F1 KEY" 80 GETA$:IFA$=""THEN80 85 IFA$=CHR$(133)THENONDGOTO100,140,185,225,250 90 GOTO80 100 PRINT"[147]":POKEBC,6:POKEBK,1:PRINT:PRINTSPC(104)"[144][175][175]" 105 PRINTSPC(13)"[144][208][207][167][165][170][205] [206][180][170][175][175]":PRINTSPC(13)"[144][170][180][167][165][170] [205][206] [180][170][175][175]" 110 PRINTSPC(92)"TIME IS DURATION" 111 PRINTSPC(93)"[144]IT IS MEASURED" 112 PRINTSPC(55)"IN MINUTES":PRINTSPC(15)"AND HOURS":D=2:GOTO75 140 PRINT"[147]":POKEBC,4:POKEBK,1:PRINTSPC(130)"[144] [205] [175]" 145 PRINTSPC(10)"[144] [205] [206][204] [180][170][183][180] [207][170] [208][207][205][206]" 150 PRINTSPC(10)"[144] [205][206] [204] [204][170][175][180] [204][170] [167][165][167][165]" 155 PRINTSPC(92)"VELOCITY IS SPEED":PRINTSPC(93)"[144]IT IS MEASURED" 160 PRINTSPC(13)"IN FEET/SECOND":PRINTSPC(13)"OR MILES/HOUR":D=3:GOTO75 185 PRINT"[147]":POKEBC,7:POKEBK,1 189 PRINTSPC(129)" [175] [175] [175]" 190 PRINTSPC(9)" [180][205][167][165][204] [208][207][206][205][170][205][180][207] [204]" 195 PRINTSPC(9)" [180][206][167][165][186] [167][165][207][208][170] [180][204] [204]" 196 PRINTSPC(9)" [163]" 200 PRINTSPC(91)"DISTANCE IS LENGTH":PRINTSPC(92)"[144]IT IS MEASURED" 205 PRINTSPC(52)"IN FEET OR MILES": D=4:GOTO75 225 PRINT"[147]":POKEBC,13:POKEBK,1:PRINTSPC(132)"*INSTRUCTIONS*" 226 PRINT:PRINT:PRINTTAB(11)"YOU WILL BE GIVEN" 230 PRINTSPC(11)"PROBLEMS TO SOLVE":PRINTSPC(11)"WITH TIME,DISTANCE" 231 PRINTSPC(11)"AND VELOCITY." 235 PRINTSPC(11)"ANSWER WITH THE":PRINTSPC(11)"CORRECT NUMBER." 236 PRINTSPC(11)"IGNORE REMAINDERS." 237 PRINTSPC(11)"DO NOT GIVE UNITS.":D=5:GOTO75 250 PRINT"[147]":POKEBC,10:POKEBK,1:POKECP,(PEEK(CP)AND240)+12 255 A=INT(RND(0)*3+1):B=INT(RND(0)*7+1):X=INT(RND(0)*21+5):Y=INT(RND(0)*101+50) 260 IFA=1THEND$="FEET":TT$="SECONDS":V$="F/S" 265 IFA=2THEND$="MILES":TT$="HOURS":V$="MPH" 270 IFA=3THEND$="FEET":TT$="MINUTES":V$="F/M" 280 ONBGOSUB440,470,440,455,470,440,470 285 PRINT:PRINT:PRINT:PRINTTAB(29)"[144][\":PRINTTAB(29)"](" 290 FORN=29TO25STEP-1:PRINTTAB(N)"(":NEXTN 295 PRINTTAB(22)"'''''":PRINTTAB(22)"'''''" 300 PRINTTAB(5)"[156]''''''''''[158] %%%%%''''''''''" 301 PRINTTAB(3)"[156]'''''''''''''''''''''''''''''''''" 305 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]" 310 Z=1024+(9*40)+30:V=54272:C=Z+V 315 INPUT"[144] ";S$:S=VAL(S$):IFS=KTHEN360 330 POKEV+24,143:PRINT" UH UH! SORRY " 335 FORM=60TO20STEP-5:POKEV,INT(M/3):POKEV+1,M:FORT=1TO15:NEXTT:NEXTM 340 Q=5:GOSUB480:POKEV+1,0:POKEV,0:FORN=1TO4:POKEZ,32:POKEZ+39,32 341 POKEZ+40,32:POKEZ+41,32 345 POKEZ+40,30:POKEC+40,0:POKEZ+79,35:POKEC+79,0:POKEZ+80,31:POKEC+80,0 350 POKEZ+81,36:POKEC+81,0:Z=Z+40:C=C+40:NEXTN 354 FORN=0TO4:POKEZ+38+N,38:POKEC+38+N,7:NEXTN:POKEV,195:POKEV+1,16 355 FORL=15TO5STEP-1:POKEV+24,L:FORT=1TO50:NEXTT:NEXTL:PP=1:POKEV,0:POKEV+1,0 356 GOTO400 360 PRINT" YEP! THATS RIGHT ":FORM=0TO60STEP2:POKEV,M/2 361 POKEV+1,INT(M/2):NEXTM:POKEV,0:POKEV+1,0 362 Q=10:GOSUB480:FORN=1TO3:POKEZ,32:POKEZ+39,32 363 POKEZ+40,32:POKEZ+41,32 364 POKEZ+39,30:POKEC+39,0:POKEZ+78,35:POKEC+78,0:POKEZ+79,31:POKEC+79,0 366 POKEZ+80,36:POKEC+80,0:Z=Z+39:C=C+39:NEXTN 367 POKEV+24,143 368 FORM=12TO60STEP4:POKEV,M/2:POKEV+1,M:FORT=1TO25:NEXTT:NEXTM:POKEV,0 369 POKEV+1,0:PP=2 400 PRINT"[147]":POKEBC,14:POKEBK,1 404 IFPP=2THEN410 405 PRINT:PRINT:PRINTSPC(171)"YOU LOST THIS TIME" 406 PRINTSPC(90)"BETTER LUCK NEXT TIME" 407 GOTO415 410 PRINT:PRINT:PRINTSPC(206)"YOU SOLVED THE GIVEN PROBLEM" 415 D=5:GOTO75 440 K=INT(Y/X) 441 PRINTSPC(42)"[144]A SKIER WENT ";Y:PRINT" ";D$ 442 PRINT"[144] IN ";X;"";TT$ 445 PRINT"[144] WHAT WAS HIS":PRINT"[144] VELOCITY IN ";V$:RETURN 455 K=X*Y:PRINTSPC(42)"[144]A SKIER WENT ";X 456 PRINT" ";V$:PRINT"[144] FOR ";Y"";TT$ 460 PRINT"[144] WHAT WAS HIS":PRINT"[144] DISTANCE IN ";"";D$:RETURN 470 K=INT(Y/X) 471 PRINTSPC(42)"[144]A SKIER WENT ";Y:PRINT" ";D$ 472 PRINT"[144] AT ";X;"";V$ 475 PRINT"[144] HOW MUCH TIME DID":PRINT"[144] HE SKI IN ";TT$:RETURN 480 FORN=1TO5:POKEZ,32:POKEZ+1,32:POKEZ+40,32:POKEZ+39,27:POKEC+39,0 482 POKEZ+40,28:POKEC+40,0:POKEZ+79,29:POKEC+79,0:Z=Z+39:C=C+39:NEXTN 484 POKEV+24,0:Z=Z-39:POKEZ,32:POKEZ+1,32:POKEZ+40,32 486 Z=1024+(14*40)+24:C=Z+V:POKEZ+1,32 488 FORN=1TOQ:POKEZ,32:POKEZ+39,32:POKEZ+40,32:POKEZ+41,32 490 POKEZ-1,30:POKEC-1,0:POKEZ+38,35:POKEC+38,0:POKEZ+39,31:POKEC+39,0 492 POKEZ+40,36:POKEC+40,0:Z=Z-1:C=C-1:NEXTN:RETURN 500 DATA96,96,60,31,44,72,142,3,0,0,0,128,16,32,64,128,1,2,4,12,0,0,0,0,0,0,0 505 DATA24,24,8,30,45,76,152,16,16,24,8,56,255,0,0,0,0,0,0 506 DATA16,15,128,64,32,0,0,0,0,240 510 DATA56,56,124,126,255,255,255,255,74,32,136,2 512 DATA212,21,162,205,255,255,255,255 515 DATA255,255,255,255,1,2,4,8,16,32,64,128 520 DATA31,21,175,195,16,125,31,21,275,195,16,125,239,19,150,195,16,100 525 DATA239,19,150,195,16,100,239,19,125,209,18,300,31,21,175,195,16,125 530 DATA31,21,170,96,22,200,31,21,230,209,18,115,195,16,400,-1,-1,-1